home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / s / safesetedit.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-28  |  375b  |  21 lines
  1. /*
  2.     The safe way to end edit mode
  3. */
  4. arg box
  5.  
  6. if ~show(l, "rexxsupport.library") then
  7.     if ~addlib("rexxsupport.library", 0, -30) then
  8.     do
  9.         call ppm_Inform(1,"Please install the rexxsupport.library in your libs: directory before running this Genie.")
  10.         exit
  11.     end
  12.  
  13. call ppm_SetEdit(box)
  14.  
  15. do while word(ppm_GetState(), 1) ~= 3
  16.  
  17.     call delay(10)
  18.  
  19. end
  20.  
  21.